Make help-for-help echo key on failure

* lisp/help-macro.el (make-help-screen): Echo key on failure.

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 962bc5a8d87556bca837fcf0ae2b025aa3d6e65b..cf024afe254944cee8f788dbb9d4df476e911d2c 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -211,6 +211,9 @@ and then returns."
                              (iconify-frame new-frame))
                            (setq new-frame nil)))
                      (unless (equal (key-description key) "C-g")
+                       (message (substitute-command-keys
+                                (format "No help command is bound to `\\`%s''"
+                                        (key-description key))))
                        (ding))))))
            (when config
              (set-window-configuration config))